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REM 3 

5 MODE @:PRINT CHR# (12) :COLORT 7 3 7 7:COLORG 8 1 3 5 

29 CLEAR 1909:R4=41:DIM АХ (КУ), ВА (КИ), СУ (ВА) ,DZ (RZ) 

59 ENVELOPE 9 15,5:11,5;9,5;7,5;5,5:5,5;0 

40 POKE #BA2D, #5A:CURSOR 0,12:PRINT "ж MAZE RUN +" 

59 КЕМ .......... Fill Array ................. 

60 FOR DZ=0 ТО RZ:READ 87(07),В7(07),С7(07),07(07):МЕХТ 07 
79 WAIT TIME 129 
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[ 80 PRINT CHR$(12):MODE 2A:COLORT 8 9 B 3 

( 1990 REM ......... Draw maze ................. 

Г 1010 FOR DZ=@ TO RX : 

L 1020 DRAW AX(QZ),BZ(QZ) CX(QZ),DX(QZ) 1: МЕХТ 07 

[ 1200 REM .......... ЕТПЕС ыза ete ME 
L 1219 DOT 68,50 5:00Т 2,0 3:XX-2:YX-O:PRINT CHR$ (12) 
L 1230 FOR С%=15 TO 19:POKE (#BAEG-24C%) , #FF:NEXT CX 
L 1240 REM FOR C4=28 ТО 32: РОКЕ («B9DA-2XCX),4FF:NEXT CZ 
С 1259 CURSOR 3,3:PRINT "TIME =" 

- 1260 CURSOR 24,3:PRINT "Best times so far are "1717, 
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1270 CURSOR 44,2:PRINT T2% 

1280 CURSOR 45,1:PRINT T3% 

1520  ZX-GETC:IF 77-0 THEN 1320 

1550 IF 74-9 БОТО 1329 

2000 REM .......... RUN ........................... 


маши 
LOLLI 
во 
[LLL] 
ВЪВ 
бебо 
ОООО 


2020 IF ZX-16 THEN GOTO 3000 

2030 IF 74-17 THEN БОТО 5020 

2040 IF ZX-18 THEN GOTO 5040 

2050 IF Z4=19 THEN GOTO 3050 

2090  TZ-TZ*1:CURSOR 10,3:PRINT ТУ: БОТО 2000 

3000 DOT X4,YX 8:YX-YX41:BG0SUB 5000:00Т XZ,YZ 3:GOTO 2000 
3020 DOT XX,YX 8:YX-YZ-1:GO0SUB 5900: DOT XX,.YX 3:G0TO 2000 
5040 DOT XZ,YX 8:XX-XX-1:60SUB 5000:DOT XX,YZ 3:GOTO 2000 
5050 DOT XZ,YX 8:XZ=XZ+1:GDSUB 5000: DOT Хи, YA 5:60Т0 2000 
5000 REM ............. WALL HIT ..... 24............ 

2010 WI=SCRN(XZ, YZ) 

5020 IF WX-B THEN RETURN 

5050 IF МХ=5 THEN 5200 

3040 REM IF WZ-3 THEN 5500 

5050 SOUND 9 0 15 9 FREQ(50.0) 

NOISE 9 15 

( 3970 WAIT TIME 20 

L 5080 WX-O:TZ-TA*30:SDUND OFF :NOISE OFF :DOT XX.YX 1 
L 5090 IF ZX-16 THEN YX-YX-1:G0TO0 5130 | 
С 9190 IF 2Z-17 THEN ҮХ=ҮХ+1:Б0Т0 5130 

[Г 5110 IF Z4=18 THEN X%=X%+1:GOTO 5120 

Г 9120 IF ZX-19 THEN XX=X4-1:G0T0 5120 
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5210 PRINT CHR$(12) 
ООО 5220 IF T14=® THEN 5500 
СПО) 5236 ТЕ TX«T1X THEN 5290 | 
QOQ 5240 IF T2%=@ THEN 5320 
5250 IF TACT24 THEN 5510 
5260 IF T3Z=9 THEN 5330 
5270 IF TZ<T3Z THEN 5330 
5280 5070 5340 

5290  T3Z-T2X: T24=T1% 
5309 Тіу-Т7:6070 5349 
5510  T3Z-T2* | 
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$320 T24=TA:G0TO 5548 
5558  T3Z-TA 

5540 REM FOR CZ-33 ТО 37:POKE (#BAE4—2*C%) „#РЕ: МЕХТ СА 

5350 REM FOR CZ-28 TO 32:РОКЕ (B9DA-2xC4),FF:NEXT CZ 

5350 CURSOR 3,3:PRINT "For another game press TAB Best times "3T1% 
5371 CURSOR 3,2:PRINT "Press E to end „из тах 
5580 CURSOR 3,1:PRINT "Your time was "+ ТА 
ваш 5599 CURSOR 49,1:PRINT TT3Z 

ООП 5400 IX=GETC:IF Z7-0 THEN 5400 

ПОР] 5419 IF 24-9 THEN TZ=0:GDTO 1200 

ПОП 5420 IF 24-69 ОК 2%=101 THEN 5440 

ПОР] 5459 GOTO 5499 

СС] || 5449 PRINT CHR$(12):COLORT 15 5 9 © 

OOO! 5450 PRINT " Best time was "5 ТІЛ; " "END 
COO 10000 DATA 9,9,9,52,0,52,71,52 

19010 DATA 71,52,71,0,71,0,4,0 

19020 DATA 4,0,4,25,0,29,8,29 

10030 DATA 8,29,8,4,8,4,12,4 

10040 DATA 16,0,16,8,16,8,12,8 

19050 DATA 12,8,12,33,12,53,4, 55 

10050 DATA 4,55,4,48,4,48,8,44 

10070 DATA 5,52,15,44,153,45,15,59 

19080 DATA 8,39,16,39,16,38,16,12 

10090 DATA 17,12,20,12,20,11,20,4 

19100 DATA 21,4,67,4,71,8,24,8 

19119 DATA 24,8, 24,39, 20,39, 28, 59 

10120 DATA 20,40,20,47,21,47,60,47 

18130 рата 64,51,64,35, 43, 43, 24,45 

10140 DATA 346,42,29,35, 29,34, 29,12 

19159 DATA 390,13, 40, 23,35,9, 48, 22 

19160 DATA 48,23, 48, 28,47, 28, 52,28 

10170 DATA 35, 29,42, 38, 43,38, 69, 38 

19180 DATA 64,34, 43, 34,52, 355,52, 18 

19190 DATA 51,17, 46,12,47,12,67,12 

19200 DATA 71,15,64, 16,64, 17,44, 50 

59999 GOTO 59999 
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sss патњи: 55-30 





Een screendump zonder printer. 





Bij het lezen van de titel van dit artikel dacht u waarschijnlijk: dat kan 
niet. Maar het kan wel, zelfs in 16 kleuren. Hoe? Door fotograferen van het 
beeldscherm. Moeilijk is dat niet, als u over de juiste apparatuur beschikt en 
het onderstaande in acht neemt. Als toepassingen noem ik het zelf maken van 
wenskaarten en titeldia's voor uw vakantieserie. U hebt nodig: een spiegelre- 
flexcamera met een lens van goede kwaliteit (een macrolens is ideaal), statief 
een draad- of zelfontspanner en een zeer stabiel beeld. Goede resultaten 
bereikt u alleen als u met RGB werkt еп liefst ook met een monitor. 
De weg naar goede opnamen is als volgt: 


* Zet de camera op statief. Zorg ervoor dat de achterwand van de camera even- 
wijdig is met de voorkant van de beeldbuis. 


* Zet de camera op een zodanige afstand van het scherm, dat u dit net niet 
helemaal in de zoeker hebt, 


* Haal een eventueel anti-reflectiescherm voor de beeldbuis weg. 


* Gebruik bij voorkeur een film met een gevoeligheid van 150 100, Printmachi- 
nes in ontwikkelcentrales verslikken zich wel eens in de DAI-kleuren еп dan | 
leveren ze veel te fletse foto’s af. Laat uw film daarom afwerken onder de 
garantie niet goed-gratis opnieuw afdrukken. Diafilms kunnen perfecte resul- 
taten leveren. 

* In de kamer moet het volkomen donker zijn. 


Stel zeer nauwkeurig scherp. 


De belichting: voor een gelijkmatig belichte opname moet de belichtingstijd 
minimaal 1/4 sec. zijn. Zelf werk ik als volgt: ik stel een geschikte com- 
binatie van sluitertijd en diafragma in en regel dan de helderheid van mijn 
monitor totdat de belichtingsmeter van de camera aangeeft dat ik goed zit. 
Vaar een 150 199 film zijn er de volgende mogelijkheden: 


1 sec. bij 11 voordeel: door de grote scherptediepte zijn ook de hoeken 
goed scherp, 


nadeel : door de lange tijd last van beeldtrilling, 


1/4 sec. bij 5.6 voordeel: door de korte tijd weinig tot geen last van 
beeldtrilling, 


nadeel : de hoeken van het beeld zullen niet helemaal 
scherp zijn, 


1/2 sec. bij 8 een compromis waar ik zelf meestal voor kies. 
Waarschijnlijk zal de helderheid van het beeld iets groter moeten zijn dan 
normaal. 


Als u zich aan deze punten houdt, dan zult u uitstekende resultaten bereiken. 
Ik wens u veel plezier en succes bij uw opnamen. 


Aad de Bruijn 
Heerenlaan 14 
NL-3218 VL Heenvliet 
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PAGE 01 --  DOOLHOF 

100 REM *** DWARS DOOR DE DOLLE 
DOOLHOF жж 

110 REM *** DE BONT C *** 30-3-1985 

120 GOTO 4000 

200 REM *** [S] GETC-ROUTINE 

210 G=GETC : G=GETC : GSGETC : W-0 : POKE 
#75,95 

220 CC=RND(16):COLORT 8 O 8 CC:IF 
CC=8 THEN 220 

230 SOUND 1 O 9 0 FREQ(RND(900)450): 
WAIT TIME 3:SOUND OFF 

240 G-GETC:IF G=0 THEN W=W+1: WATT 
TIME 3:1F W«30 THEN 240 

250 IF G=0 THEN W=0:GOTO 220 

260 РОКЕ #75,32:COLORT 8 O 8 14: 
RETURN 

300 REM *** [5] CLOSE A DOOR (XD, 
Үр): ан и ан шш шшш ы. 

310 P-1:FILL XD,YD XD+10,YD+10 20: 
PRINT CHR$(12); 

320. FOR I=1 TO 5:DRAW XD+3,YD+I XD+ 
8,YD+I 21 

330 1 DRAW XD+3,YD+10-I XD+8,YD+10-T 

1 21:FOR Q-1 TO 100:NEXT 
340 NEXT: LHzO: RETURN 
290 ТЕ інг ІІ: 85-30 
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REM *** [S] HINDERNIS 
HR=RND(9)+1:IF HR=1 AND 
RND(100)>2 THEN 410 | 
PRINT CHR$(12);:BC=2:GOSUB 900: 
FOR I-1 TO 10 
SOUND 1 O 15 3 FREQ(800):FOR Q- 
1 TO 100:NEXT 
SOUND 1 O 15 3 FREQ(400):FOR Q= 
1 TO 100:NEXT:NEXT 
SOUND OFF :IF HR-1 THEN 500 
IF HR-2 THEN 600 
IF HR-9 THEN 800 
GOTO 700 


PRINT K$;"U VALT IN DE 
SLANGEKUIL ! VAARWEL VRIEND !!" 
PRINT K$;"HET SPEL IS VOOR U 
DEFINITIEF AFGELOPEN !!"; 
G$=CHR$(102):GOSUB 900:FOR 0-1 
TO 100:NEXT 
G$=CHR$(103):TC=21:GOSUB 900: 
RETURN 


REM *** [S] VALKUIL 


PRINT K$;"U BELANDT IN EEN 


VALKUIL.U KLIMT ERUIT ,„МААК" 
PRINT K$;"DAT KOST 0"; 
G$=CHR$(101):GOSUB 900: SE= 
INT(100*RND(1))420:SF-SF4SE 
PRINT SE;" KOSTBARE 
STRAF-SECONDEN !!";:GOTO 840 


REM *%** [S] SPRINGPLANK 

PRINT K$;"U KOMT OP EEN 
SPRINGPLANK TERECHT !! VOOR U" 
PRINT K$;"HET WEET BENT U OP 
EEN ANDERE PLEK BELAND!"; 
G$=CHR$(100):GOSUB 900:G$z" " 
FILL XM,YM XM+10,YM+10 22:XI-XM: 
YI=YM 

X=INT(28*RND(1) )+1: Y= 
INT(18*RND(1) )+1: XM=(X*10)+20 
YM=(Y*10)+10:IF SCRN(XM+5, YM+5)= 
О THEN 750 

XH=XM:YH=YM:BC=2: IF SCRN(XM45, 
YM+2)=8 THEN BC=0 

GOSUB 900:GR=SCRN(XM+5, YM+2) : XG= 
XM: YG=YM: G$2CHR$ (99) 

GOSUB 900:FILL XI,YI XI+10,YI+ 
10 22:GOTO 840 
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REM *** [S] VOEDSELPAKKET 
PRINT K$;"U VINDT 'N 
VOEDSELPAKKET.NA 'N FLINKE 
MAAL-" 

PRINT K$;"TIJD GAAT U VERDER.U 
WINT 100 SECONDEN 11"; 
G$-CHR$(98):GOSUB 900:LIM=LIM+ 
100 

CURSOR 10,1:PRINT "DRUK OP EEN 
TOETS VOOR "Т VERVOLG"; 

LH=0: SH=0:G=GETC:G=GETC :G=GETC 
G=GETC:IF G=0 THEN 860 
G$-CHR$(99):GOSUB 900:PRINT 
CHR$(12); : RETURN 


REM *** [S] CALL OF ЕСТ (XG,YG, 
TH TC, Н5,У5,6%,ВЕ) ---- 

SOUND ТО 15 3 FREQ((XG+YG+ 
25)*2):POKE #2F0,BC*#40+TC 

РОКЕ #2F1,BF*#80+TH:POKE #2F2, 
XG MOD 256 

РОКЕ #2F3,XG SHR 8:POKE £2F4,YG: 
POKE #2F5,HS 

РОКЕ #2F6,VS:CALLM #300,G$: 
SOUND OFF :RETURN 


REM *** DOOLHOF-GENERATOR 
ОЕ VERSIE UIT 

REM *** NOS-HOBBYSCOOP 
UITZENDING VAN 26-6-1983) 
CURSOR 20,0:PRINT "EVEN GEDULD 
A.U.B!";:X=16:Y=10 


--  DOOLHOF 


D(X,Y)=9:FILL 11,0 319,210 21: 
TH=0 
T20:R120:R2z0:R320:RA-O0:IF X+ 
2528 THEN 1070 

IF D(X+2,Y)<>0 THEN 1070 
DX=2:DY=0:T=T+1:R1=1 

IF Y+2>18 THEN 1100 

IF D(X,Y+2)<>0 THEN 1100 
DXz0:DY-2:T-2T41:R2-1 

IF X«2 THEN 1130 

IF D(X-2,Y)<>0 THEN 1130 
DX=-2:DY=0:T=T+1:R3=1 

IF Y<2 THEN 1160 

IF D(X,Y-2)<>0 THEN 1160 
DX=0: DY=-2: T=T+1:R4=1 

IF T=0 THEN 1250 

IF T<>1 THEN 1330 


REM *** 1 AANSLUITEND HOKJE VRIJ 
D(X40. 5*DX,Y+0.5*DY)=1:XQ=X+ 
0.5*DX+2: YQ= Y+0.5*DY+1 

FILL XQ*10,YQ*10 (XQ*10)+10, 
(YQ*10)+10 20 

XG=(X+2)*10: YG=(Y+1)*10 


TC=23:G$=CHR$(98):GOSUB 900: X=X+ 


DX: Y=Y+DY 

XG=(X+2)*10: YG=(Y+1)*10 
TC=22:G$=CHR$(97):GOSUB 900:D(X, 
Y)=-10*DX-DY:GOTO 1040 
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= = = pi 


REM *** GEEN AANSLUITEND HOKJE 
VRIJ DOE STAP TERUG 

FILL (X+2)*10,(Y+1)*10 ((X+ 
2)*10)+10,((Y+1)*10)+10 20 

IF D(X,Y)=9 THEN 1410 
BK=D(X,Y):IF ABS(BK)=2 THEN 1300 
X=X+BK/10:GOTO 1310 

Y=Y+BK 

FILL (X+2)*10,(Y+1)*10 ((X+ 
2)*10)+10,((Y+1)*10)+10 20 
GOTO 1040 


REM *** >] AANSLUITEND HOKJE 
VRIJ-KIES ER EEN UIT 
DR=INT(4*RND(1))+1 

ON DR GOTO 1360,1380,1390,1370 
IF К1=1 THEN DX=2:DY=0:GOTO 1190 
IF R4=1 THEN DX=0:DY=-2:GOTO 
1190 

IF R2=1 THEN DX=0:DY=2:GOTO 1190 
IF R3=1 THEN DX=-2:DY=0:GOTO 


1190 
GOTO 1340 
REM *** TNGANG EN UITGANG 


COLORG 8 O 1 14:FILL 0,0 330,9 
21 

Y=CINT(IS*RND(1))+1)*10:IF 
SCRN(25,Y+5)=0 THEN 1430 

FILL 0,201 330,210 21:FILL 10,Y 


--  DOOLHOF 


20,Y+10 20 
YzCINT(18*RND(1))41)*10:IF 
SCRN(305,Y+5)=0 THEN 1450 
FILL 310,Y 320,Y+10 20 


REM *** HINDERNISSEN 

FOR I-1 TO 10 
X-INT(28*RND(1))41:X-(X*10)420: 
Y=INT(18*RND(1))+41 
Ү=(Ү*10)+10:1Е SCRN(X+5, Y+5)=0 
THEN 1520 

FILL X,Y X+10,Y+10 22:NEXT:LH=0: 

SH=0 


REM “ek ZOEK UW WEG 


SEC=0:SF=0:WAIT TIME 2:POKE 
#1BF,#FF:POKE #1BE, #FF 

PRINT CHR$(12);:LIM=300:XM=0: YM= 
100:P=0:GR=8:BC=0 
GR=SCRN(XM+5, YM+2) : XG=XM: YG=YM: 
TC=23:G$=CHR$(99) 

GOSUB 900:XH-XM:YH-YM:T$-"":IF 
GR=1 THEN GOSUB 400 

SEC- 
C#FFFF-PEEK(#1BE)-(PEEK(#1BF)*25 
6))/50:EF-SEC+SF 

IF LH<>LIM THEN CURSOR 50,3: 
PRINT "LIMZ";LIM;" "3 

IF SH<>EF THEN CURSOR 50,2: 

PRINT "SEC-";EF;" ", 
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IF HR=1 THEN 3140 

IF SEC+SF>LIM THEN 3100 
G=GETC:IF G=0 THEN 2050 

IF G=16 AND SCRN(XM+5,YM+11)<>0 
THEN УМ=УМ+10 

ТЕ G=17 AND SCRN(XM+5,YM-1)<>0 
THEN ҮМ-ҮМ-10 

IF XM=0 THEN 2150 

IF G=18 AND SCRN(XM-5, YM45) «50 
THEN XM-XM-10 

IF G=19 AND SCRN(XM415,YM45) «50 
THEN XM=XM+10 

ТЕ ХМ-20 AND P=0 THEN Хр=9:Үр= 
YM:GOSUB 300:GOTO 2030 

IF XM=320 THEN 3000 

FILL XH+2,YH+1 XH+8,YH+9 GR 
BC=0 : LH=LIM:SH=SEC+SF:GOTO 2030 


REM жжж U BENT GESLAAGD 
G$=CHR$ (99) : SEC= 
(#FFFF-PEEK(#1BE)-(PEEK(#1BF)*25 
6))/50 

PRINT CHR$(12);:POKE #75,95:TC= 
23:XG=320 : YG=YM:ST=0 
XD=310:YD=YM:GOSUB 300:GOSUB 

900 : G=GETC : G=GETC : G=GETC 

FOR I=1 TO 5:IF GETC<>0 THEN ST= 


--  DOOLHOF 


1 


WAIT TIME 3:NEXT:IF ST-1 THEN 3200 


3200 

G$=CHR$(104):GOSUB 900 

FOR I=1 TO 5:ТЕ GETC<>0 THEN ST- 
1 

WAIT TIME 3:NEXT:IF ST-1 THEN 


G$=CHR$(99):GOSUB 900:GOTO 3040 


REM *** U BENT VERHONGERD 

Хс- ХМ: YG=YM: TC221 :G$2CHR$ (103) : 
GOSUB 900 

PRINT CHR$(12);"U BENT VAN 
HONGER OMGEKOMEN !!" 

PRINT "HET SPEL IS VOOR U 
DEFINITIEF AFGELOPEN !!" 
MELS$=""KKKK jUUKKOK , . КККК jUUKKOK" : 
ТР=15:СОТО 3300 


REM “etek HET EINDE 


PRINT CHR$(12);"U BENT VEILIG 
DOOR DE DOOLHOF GERAAKT" 

PRINT "EN WEL IN";SEC4SF;" 
SECONDEN !!" 

MEL$- 

"KKU j jUK9) )9KK9. . KKU j jUK9) )9K9)) 
":TP-10 


3300 


3310 
3320 
3330 
3340 
3350 
3360 
3370 


4000 


4010 
4020 


4030 
4040 


4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 


4170 


4180 
4190 


4200 
4210 


4220 
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REM *** UW KEUZE 
FOR I-0 TO LEN(MEL$)-1:T$- 
MID$(MEL$,I,1) 
F=ASC(T$)+90: IF TG$-"." THEN F= 
20000 
SOUND 1 O 15 0 FREQ(F):WAIT 
TIME TP:SOUND OFF :NEXT 
CURSOR 10,0:PRINT "WILT U 
OPNIEUW SPELEN (J/N) "; 
GOSUB 200:IF G=74 OR G=106 THEN 
100 
POKE #75,95:PRINT CHR$(12); 
TAB(22);"E I N D F" 
GOTO 5000 


REM *** TITELPAGINA 


CLEAR 5000:DIM CL(3),D(28,18): 
РОКЕ #75,32 
XG=0: YG=0:G$="" : TC223: THz1:HS- 
11: VS=11:BC=0:BF=0 
ENVELOPE O 15:PRINT CHR$(12); 
COLORG 8 O 1 14:MODE 6A:COLORT 
8089 
FOR X=10 TO 42:CURSOR X,1:POKE 
#76,#FF:NEXT 
РОКЕ #AA7C,#FF:POKE #A374,#FE: 
POKE #9C6C, #FD 
POKE #9564,#FC:POKE #8E5C,#FB: 
POKE #8754,#FA 
FOR 1=0 TO 4:ТС-21:ТК-21:ІЕ 1=4 
THEN TC-23:TK-22 
DRAW 40+1,40+1 210+1,40+1 ТК 
DRAW 21041,4041 280+1,160+1 ТК 
DRAW 280+1,160+1 100+1,160+1 TK 
DRAW 100+1,160+I 40+1,40+1 TK 
Хе=100+1 : YG=130+1:G$="DWARS": 
GOSUB 900 
Хе=90+1 : YG=110+1:G$="DOOR": 
GOSUB 900 
XG=80+I : YG=90+I :G$="DE" : GOSUB 
900 
XG=70+I : YG=70+1:G$="DOLLE": 
GOSUB 900 
XG=60+1 : YG=50+1:G$="DOOLHOF" : 
GOSUB 900:NEXT 


POKE #7556,#DE:POKE #74D0,#DF: 
POKE #744A,#D9 

CURSOR 43,3:PRINT "GESCHREVEN 
DOOR :" 

CURSOR 51,2:PRINT "DE BONT C" 
CURSOR 10,1:PRINT "DRUK OP EEN 
TOETS OM TE BEGINNEN"; 
TH=0:BF=1:GOSUB 200:MODE 2A 


4500 REM *** INFO 4760 PRINT K$;" МААК DEZE КОТ, IS 
STEEDS DODELIJK !!" 
4770 PRINT K$;"U KUNT NOOIT ZIEN 


= 4510 MODE O:PRINT CHR$(12);:K$-" WELKE HINDERNISSEN OP UW" 
: * "SCOLORT 8 O 8 14 4780 PRINT K$;"WEG LIGGEN, EN U ZULT 
* 4520 FOR Х=5 TO 52:FOR Y-O TO 23 ZE OOK NOOIT KUNNEN" қ 
STEP 23:CURSOR X,Y 4790 PRINT K$;"VERMIJDEN !!":COLORG 
4530 POKE #76,#FF:PRINT "ж";:МЕХТ: 8 0 3 14 4 
МЕХТ 4800 PRINT K$; WILT U DE DOOLHOF 
" 
4540 FOR X=5 ТО 52 STEP 47:FOR Y=1 ZIEN GROEIEN (J/N)"; 
TO 22:CURSOR X,Y 4810 GOSUB 200:IF G=78 OR G=110 THEN 
POKE #76,#FF:PRINT "*"; :NEXT: COLORG O O O 14 x 
NEXT:CURSOR 0.22 4820 PRINT CHR$(12);:MODE 6A:K$= 
, LL 
POKE #BF68,#D9:POKE #BEE2, #DA: :GOTO 1000 
POKE #BDD6 , #00 
POKE #BAB2,#D7:POKE #8946, #00: 2000. КЕМ зз зынын nes EINDE 


POKE ВЕ ro ent CR 
4580 POKE #B708,#DF:POKE #B5FC, #00: 


EE Н ТВ 
POKE #B46A, #06 
4590 PRINT K$;"(>>>***===---DE DOLLE МЕН) SOF TWARE 
) 
4600 PRINT K$3;"(>>>> Ree ae Е 
сама аз ecco Disk Based Dbasic 


É 4610 PRINT K$ 
4620 PRINT K$;"DE BEDOELING VAN DIT 


SPEL IS DAT U ZO SNEL" - For a description of the software see 
4630 PRINT K$;"MOGELIJK DOORHEEN DE и | 
DOOLHOF LOOPT! U МОЕТ" - This software package is yet available 
4640 PRINT K$;"SNEL ZIJN,WANT U on the following floppy-drive systems : 
LOOPT HET RISICO VAN HON-" : . 
4650 PRINT K$;"GER OM TE KOMEN !! U - Indata 2 * 80k drives with DOS 1.0 or 
|| WEL OP,ER ZIJN DIVERSE" Slave dus Брона ор. 
| WEG,EN WEL :" slavedos eproms. 
4680 PRINT K$;"1) VOEDSELPAKETTEN: | 
; 4690 PRINT K$;" UW LOOPTIJD MET 
| 100 SECONDEN VERLENGD! !" - a bootstrap. | 
| 3 4700 PRINT K$;"2) VALKUILEN:HIER ба the DBASIC V2.2 programming language 
| KUNT 0 TOT 100 SECONDEN" ПОЛО ГЕРА eso 
4710 PRINT K$;" ТІЛ) VERLIEZEN 11" - the configuration file (CONFIG.CFG) 
4720 PRINT K$;"3) SPRINGPLANKEN: DEZE - the file handler (DBFIL.SYS) 
4730 PRINT K$;"  REN,ZODAT U OP EEN - опе or more BIOS's (BIOSxxx.SYS) 
ң WILLEKEURIGE  PLAATS" - the DCR driving extension (DCR.SYS) 
4740 PRINT K$;" ІМ DE DOOLHOF КАМ - the cross-reference utility (XREF.SYS) 
TERECHT KOMEN !!" - the function keys extension (KEY.SYS) 
4750 PRINT K$:"4) SLANGEKUIL:DE KANS - the cassette driving extension (CAS.SYS) 


- Three manuals are included in the package. 

- The END-USER price is *£BB Bfr. 

- Upgrade from DCR or CASSETTE version : 
2668 Bfr. 


- BIOS's for other drive systems are in 
development 
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Biorythm 








Chacun connait des hauts et des bas. 

Sertains jours, tout va bien et d'autres,tout va mal. 

Depuis longtemps,on suppose que ceci répond à des lois 
mathématiques. 

Le docteur Wilhem FLIESS (1858-1928) et le docteur Hermann SWOBODA 
(1873-1963) ont posés les bases де la théorie du BIORYTHME. 

Selon ces lois,notre vie serait régie par trois cycles: 


- le cycle physique ou masculin qui a une période de 23 jours 
- Те cycle émotionnel ou féminin qui a une période de 28 jours 
- le cycle intellectuel qui a une période de 33 jours. 
Ces cycles sont sinusoidanux et définissent des alternances 
positives et négatives. 
Les jours сп les courbes passent par zéro sont critiques. 
L'amplitude des courbes indique les influences positives cu 
négatives 
Les trois cycles débutent le jour de la naissance. 
Pour établir un biorythme,il suffira de tracer ces trois 
sinusoides pour {а période désirée. 


Pour cela,il faut calculer le nombre de jours qui se sont écoulés 
depuis ia naissance 
Le programme proposé est très complet.Il affiche au MENU: 


- JOURS DE LA SEMAINE: connaissant une date,le programme calcule 
quel est le jour qui y correspond. 


~ ECART ENTRE DEUX DATES :connaissant deux dates,le programme 
calcule combien de jours séparent ces 
dates. 


- SIGNES DU ZODIAQUE: en fonction de la date de la naissance,le 
programme calcule quel est le signe du 
Zodiaque qui y correspond. 








- BIORYTHME: ce programme exploite les trois premiers afin 
d'établir les sinusoides du BIORYTHME. 
Les trois courbes apparaissent 
successivement sur l'écran. 


t4 
m 


programme est conversationnel 
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50 


MODE 

PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
ON R 

PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
GOSUEB 
PRINT 


J'FRINT CHR$(12):COLORT 5 9 0 O- RESTORE: PRINT 


“ MENU: " : PRINT 


E JOURS DE LA SEMAINE 1" 
A ECART ENTRE DEUX DATES г" 
o LIGNES DU ZODIAQUE 3" 
y BTORYTHME | а" 
Y Choisissez votre programme: ";R:PRINT PAINT 


ОТО 200,300,500, 600 


"CE PROGRAMME N'EXISTE PAg£.RECOMMENCEZ.'":PRINT :CCTO 70 
CHARS (122: PRINT 

“JOURS DE LA SEMAINE. .‘": PRINT : РЕ: МТ 

ы DONNEZ LA DATE: jour mois annee": PRINT 

"ЕЖЕМРІЕ:9 (RETURN) 4 (RETURN? B3 (RETURN:" 

“pour Ia date du 9 avri! 1983.":PRINT 

Jh: INPUT M%: INPUT A 

2000 

PRINT " CE JOUR EST UN ";J35¢ 5%) 


GOTO 2700 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
GOSUB 


C 1 % = Cs 


PRINT 
INPUT 
GOSUB 
PRINT 


CHR (12): PRINT 

PICART ENTRE DEUX DATES ":PRINT 

"DONNEZ LA PREMIERE DATE jour mois annee":PRINT 
"EXEMPLE: 9 (RETURN) 4 (RETURN) 83 (RETURN)" 
“pour la date du 9 avril 1983.":PRINT 

Jh: INPUT Ма: INPUT АФ 

2020: PRINT 


"DONNEZ LA DEUXIEME DATE jour mois annee‘. PRINT 
Jh: INPUT M%:INEUT АМ 

2020: PRINT :PRINT 

Ё L'ECART EST DE ";С%-С1%," JOURS." 


GOTO 2700 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
TNPUT 
СОБИВ 
PRINT 


CHR5S61252: RESTORE: PRINT 

“SIGNES DU ZODIAQUE.":PRINT 

"DONNEZ LE JOUR ET LE MOIS DE VOTRE NAISSANCE.":PRINT 
"PAR EXEMPLE:9 (RETURN) 4 (RETURN)" 

“pour le 9 avril." 

J: INPUT M% 

2500 

: PRINT " VOTRE SIGNE DU ZODIAQUE.: "IZS CI 


СОТО 2700 


PRINT 


CHRSC(12):COLORT 12 0 12 12 


POKE #BF69,#5A 
CURSOR 3,22 


PRINT 


FOR Xz 


"BIORYTHME": PRINT 
*HF47 TO #BFSD STEP -2.0 


РОКЕ %,42 
РОКЕ Х- 30,42 


NEXT 


POKE #BESC,#CF 


PRINT 
INPUT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
GOSUE 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 


“QUEL EST VOTRE PRENOM: "; Ps 

: PRINT 

"QUELLE EST VOTRE DATE DE NAISSANCE:" 

М par екешр!е: 9? (RETURN) 4(RETURN? 83 CRETURN)". 
(pour 9 avril 19933" 

Jh: INPUT M: INPUT A% 

2000:Ci%=C% 

: PRINT 

“POUR QUEL MOIS DESIREZ-VOUS VOTRE BIOQRYTHME: " 
и par exemple 7(RETURN) B2(RETURN)" 

T pour juillet 1982" 

MB%: INPUT AB% 


WAIT TIME 50 


PRINT 


CHRS C12) :COLORT 12 0 12 12 


FOKE #BF69,#5A 


Ела в Е: 65-30 aas 


а: 28, 38 
ке А Ма кі оғы - 
Да бл tn 
coca 


55 
50 
70 
86 
90 
en 
230 
1220 
1230 
1240 
1250 
1240 
1270 
1999 
2000 
20190 
2011 
2012 
2013 
2914 
2015 
2014 
i020 


3039 


ка 
М DÌ — м =+ t 


ra 


CURSOR 2,23 

PRINT "ВТОКУТНМЕ DE“: PRINT 

POKE #ВЕЗП, #5 A 

CURSOR 4,20: PRINT PS: PRINT 

POKE #5050, #СЕ 

PRINT 

GOSUB 2900 

PRINT ТАВ 4); "VOUS ETES NE UN "; 38 (5%) 

PRINT 

POKE ЯВВВЕ, #СЕ 

GOSUH 2500 

PRINT 

PRINT TAB(6};"VOTRE SIGNE DU ZODIAQUE EST: ";25 (1%) 
POKE #BA2C,#CD 

PRINT :PRINT 

PRINT "(donnez une impulsion SPACE '; 

PRINT "pour la suite du programme )“ 

IF GETC{}32 THEN 935 

ла: 15 Ме = МВ: АЖ=АВ%. СОЗУВ 2000 

У= (СҺ-С1%92%8.02-31.0 

PRINT CHR$(12):MODE 4A:COLORT 14 000: СОГОКС 14 0 8 3 
FOR М-!1.0 TO 31.0 

Пав 0 

IF Net 0 OR Ме5.0 OR №10 .0 OR N=15.0 OR N=20.0 OR N=25.0 


THEN C=0 0 


DRAW (24+М%8),0 (24+N*8),230 С 

NEXT 

DRAW (24483,110 272,110 B 

CURSOR 0,3 

PRINT " 1 5 10 15 20 25 30" 
CURSOR 0,2: PRINT "PHYSIQUE . . . . . ." 
FOR X1231.0 TO 272.0 STEP 2.0:X2-X«X1 
YVaBUO.0*BIN(2.0*»PI*XY2/184.0204110.0 

DOT Xi1,Y Q 

NEXT 

CURSOR 35,2: PRINT "(appuyez sur SPACE)" 
IF GETC<>32 THEN 1100 

CURSOR 35,2:PRINT " ч 
CURSOR 5,1: PRINT "EMOTIONNEL........... "j 
FOR Х1=31.0 ТО 272.0:Х2=Х%+%1 
Yz80.0*8INC2.0*PI*X2/224.00«110.0 

DOT Х1,9 0 

NEXT 

CURSOR 35,2: PRINT "tappuyez sur SPACE)" 
IF GETC4>32.0 THEN 1170 

CURSOR 35,2: PRTNT " E 
CURSOR 10,0: PRINT "INTELLECTUEL---—--------- de 
FOR X1231.0 TO 272.0 STEP 0.5:Х2-«Х%Х1 
Yz80.0*S5INC2.0*PIX*X2/264.00)0*«110.0 

DOT X1,Y 0 

NEXT 

CURSOR 33,2:PRINT "(appuyez sur SPACE" 
CURSOR 33,1: PRINT "pour revenir au MENU)" 
IF GETC<>32.0 THEN 1260 

GOTO 10 

END 

DIM J$(7.0) 

2801 409 "LUNDI" 

J$(2.0)z"MARDI" 

J$(3.0)="MERCREDI" 

J&t4. 0) "JEUDI" 

7905.0) "VENDREDI" 

J$(6.0)="SAMEDI" 

4$0(2.,0) "DIMANCHE" 

Ai%=INTCA%/100.02 

А2%4-А%-100%А1% 
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OR N=3 


2040 M% 0 

2050 IF M%>2 THEN 2140 
2060 N%=2 

2070 TF А2%=0 THEN 2120 
2080 ҢБосА2%-4ЖІМТ(А2Ф/4.0) 
2090 ТЕ 020 0 THEN 2140 
2100 Nx] 

2119 сото 2140 

2129 BuSAiUS-d*INTOAI 5/43.02D 
2130 IF R%=0 0 THEN N%=1 





FOR ІЗеі TO 12 
20 READ 25(1%) 
2530 NEXT 
2560 1%=М%: 190: 20 
2520 ON Mh GOTO 21610,2610,2600,2610, 2602, 2600, 2590, 2580, 2570, 25 В0, 260 
0,2580 
2589 Ток L + i 
! 2590 1%-1%-1 

E 2600 L % 190 + 1 

É 2610 IF J%<L% THEN 2630 
Б 2620 1%=1%+1 
| 2630 IF 1%4=12 THEN 2650 
2640 І%= 1 
2650 RETURN 
2700 CURSOR 0,35 
3710 PRINT "donnez une impulsion SPACE pour revenir au MENU." 
2720 IF GETC<>32.0 THEN СОТО 2720 
2730  GOTO 10 

3 10000 DATA "CAPRICORNE","VERSEAU","POISSON","BELIER'" 
4 10010 DATA “TAUREAU", "GEMEAUX", "CANCER", "LION" 
10020 DATA "УТЕВСЕ", "BALANCE", "SCORPION", "SAGITTAIRE!" 


2140 DCGINTOS365.29*AZ WA? -INTO30.56X*M9h2 +N% + 9% 
2150 S%=3+0%-7*X INTC (С%ғ2.02/7.00 

2140 RETURN 

2500 DIM Z54012 .05 

510 

3 


ка te 
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-- TEXT-SCRAMBLER 


REM жеж TEXT SCRAMBLER-DECODER 


ste se ale sie Ме Ме o she ole ste sl, ole slo ate ale ole ale ale 
de ak ah afk ok afc aie afk fe akc afk ols alk ik УЗ eee 
ste ~ 
* 


T 
** WRITTEN BY : DE BONT 
/ 18-2-1985 seek 


GOTO 1000 


REM *** [S] PLACE STRING IN 
ARRAY eee 

WW$ (AR)=LINES : AR=AR+1:LINE$=" 
IF WW$(AR)="" THEN WW$(AR)=" " 
RETURN 


REM *** [S] INPUT S$ (KEY 
STRING) PIE 
G=GETC : G=GETC : G=GETC 

С-СЕТС:ІЕ G=0 THEN WAIT TIME 3: 
GOTO 320 

IF G=9 THEN S$=W$:CURSOR 9,1: 
PRINT S$; : КЕТОКМ 

IF G=8 AND LEN(S$)>1 THEN 390 
IF 6232. THEN G=95:GOTO 380 


400 


410 
420 


430 
440 


450 
460 


500 


510 
520 


530 
540 


2968 EERManic es—so 


IF G=13 THEN RETURN 

IF G<65 OR G>90 THEN 310 
S$=S$+CHR$(G):PRINT CHR$(G);: 
GOTO 310 
S$=LEFT$(S$,LEN(S$)-1): PRINT 
CHR$(G);:GOTO 310 


REM жеж [S] GETC-ROUTINE 
ARR DIS PK DE DIS oja ale sie AK ie oi oi oe КК 2 
G-GETC:G-GETC:G-GETC 
SOUND 1 0 9 0 FREQ(RND(950)+50): 
WAIT TIME 3:SOUND OFF 
CC-RND(16):POKE #B46A,#DO+CC: IF 
CC=8 THEN 430 

G=GETC:IF G=0 THEN W=W+1:WAIT 
TIME 3:1F W<30 THEN 440 

IF G=0 THEN W-0:GOTO 420 

POKE 4BA6A, #0: RETURN 


Мама ме sle le 
S SS 


REM *** [S] INPUT L$ (LINE 
STRING) “eee 
G=GETC : G=GETC : G=GETC 

G-GETC:IF G<8 ОК G>90 THEN WAIT 
TIME 3:GOTO 520 

IF G=8 AND LEN(L$)>0 THEN 590 
IF G=13 THEN RETURN 








E 


| 


| 
| 
| 








550 ТЕ G=34 THEN 520 

560 IF G«32 OR G>90 THEN 510 

570 L$=L$+CHR$(G) 

580 PRINT CHR$(G);:GOTO 510 

590 L$=LEFT$(L$,LEN(L$)-1):GOTO 580 


600 REM *** [5] SCRAMBLING 


ate ste ste fe ste slo ole ale ole ale gle ale te ate slo ale ale ste ste ste she ste sie ale Ма Ме te 
BIST FIC OIC BIC IK ee a oe afc ОР ete ake ake ake fe ale ate ake este sek sk se sesto 


610 FOR 1=0 TO LEN(L$)-1:T$-MID$(L$, 


I,1) 

PAGE 02 — TEXT-SCRAMBLER 

620 1 U$=CHR$(ASC(T$)+WW(NR) ) : LINE$- 
1 LINE$+U$ 

630 1 NR=NR+1:IF NR=42 THEN NR=0 


640 NEXT:GOTO 200 


700 REM **** [S] PAGINA-TITLE (A$,B$, 
C$) ЗРЕО ОЗЕ О ЗОО У 

710 MODE O:PRINT CHR$(12);:COLORT 8 
0 8 14:POKE #BFEE,#DD 

720 POKE #BF68,#DA:POKE #ВЕЕ2 , #00: 
POKE #BESC, #F2:NR=0 

730 POKE #BDD6,#DA:POKE #BD50,#D0: 
FOR Y=22 TO 23 

740 1 FOR X=14 TO 22:CURSOR X,Y:POKE 

1 #76,#FF:CURSOR X+24,Y 

750 POKE #76,#FF:NEXT:NEXT:CURSOR 
30,19:POKE #76,#FF 

760 POKE #8A,81:POKE #8B,189:CURSOR 
14,23:Кф=" —*— _x_ " 

770 PRINT "5":K$;A$;K$;"c":PRINT 
TAB(14) ; ">"; K$; 

780 PRINT NAOKI ASCE KG <T, 
PRINT TAB(14);B$ 

790 PRINT TAB(14);C$:PRINT TAB(14); 

795 PRINT "5»»»» Ee ekLLL Oee 
doe cc cc" s RETURN 


800 REM *** [S] DEMO PASSWORD 
жоко eee ЖОК ЖООК ee 
810 W$=W$+CHR$ (68) +СНЕЗ (69)4- 
СНК (95) +СНЕЗ (66) +CHR$ (79) 
820 W$-W$4CHR$ (78) +СНЕЗ (84)4- 
CHR$ (95) CHR$ (67) 4 CHR$ ( 79) 
830 W$=W$+CHR$ (82) +CHR$ (78)4 
CHR$ (69) +CHR$ (69) +CHR$ (76) 
840 W$=W$+CHR$ (95) CHR$ (79) + 
CHR$ ( 79) x CHR$(83)--CHR$ (84) 
850 W$-W$4CHR$ (69) +СНЕ (73) + 
CHR$ (78) +СНЕ (68) +СНЕЗ (69) 
860 W$-W$4CHR$ (95) +СНЕЗ (66) + 
CHR$ (65) +СНЕ (65) +СНЕЗ (82) 
870 W$=W$+CHR$ (76) +СНЕЗ (69) + 
CHR$ (95) +СНЕ (72) +СНЕЗ (69) 
880 W$=W$+CHR$ (82) +CHR$(84)+ 
CHR$(79)+CHR$(71)+CHR$(95) 
890 RETURN 


900 REM *** [S] YELLOW SQUARE 
жюк eee aI SI aK fe ee ae aa aK aK ee ee 

910 CURSOR X,Y:POKE #76,#FF:PRINT 
L$; : RETURN 


1000 


1010 


1020 
1030 


1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 


1340 


~ ste ste sle ste ste Ste ale he se slo ste ele gle ale ate ale 
> IS DIR DIR DS HE HE DE IC OK DIS OK ale afc akc ake te ok 


CLEAR 20000:MODE O:PRINT 
CHR$(12);:COLORT 8 O 8 14 

DIM WW(42),WW$(255):GOSUB 800 
PW=0:ST=0:GOTO 4110 


--  TEXT-SCRAMBLER 


~ ste ме she le ste ste Ме ste ~ Me ste ste slo ale ole ate ale ae Му ate ae 
DI DIK af У Tg aig akc ale кк afc fe le le ote ate ale ale ste we oie ak ae ake aie 


MODE O:PRINT CHR$(12);:POKE 
#BF68, #10 : L$=CHR$ (1) 

FOR X-2 TO 58:Y-23:GOSUB 900:Y- 
0:GOSUB 900:NEXT 
L$-CHR$(127):FOR Y-1 TO 23:X-2: 
GOSUB 900:Х-58 

GOSUB 900:NEXT:K$-" "Ы" 
":РОКЕ #BEE2, #DB 

POKE £BE5C,£DO:POKE #BB38,#D6: 
POKE #8946, #07 

POKE #B814,#D9:POKE #B708, #DA: 
POKE #B682, #DB 

РОКЕ #B5FC,#DD:POKE #B4FO,#DF: 
POKE #B46A,#D0:L$=" " 

FOR X=9 TO 10:FOR Y=4 TO 14: 
GOSUB 900:NEXT:NEXT 

CURSOR 16,22:PRINT "TEXT 
SCRAMBLER-DECODER" 

CURSOR 16,21:PRINT 

Tea a ai ai ЖЕ fe eee a ea see tee eee te tt 
PRINT K$;"THIS PROGRAM ALLOWS 
YOU TO SCRAMBLE OR DE-" 

PRINT K$;"CODE ANY KIND OF 
TEXT, BY USE OF A SECRET" 
PRINT K$;"KEYWORD KNOWN ONLY 
BY YOU ! ! THE KEYWORD" 

PRINT K$;"YOU WILL GIVE ME 
CAN BE ANY WORD OR LINE" 
PRINT K$;"AS LONG AS YOU USE 
ONLY CAPITAL CHARAKTERS" 
PRINT K$;"AND SPACES (NO 
NUMBERS OR SYMBOLS)" 

PRINT K$;" 1) THIS COMPUTER 
WILL  SCRAMBLE АМУ TEXT" 


PRINT K$;" WICH YOU HAVE 
TYPED IN !! THE SCRAMBLED" 
PRINT K$;" LINES WILL BE 


STORED AWAY IN AN ARRAY !" 
PRINT K$;" 2) THIS COMPUTER 
WILL DECODE ANY TEXT IT" 


PRINT K$;" CAN FIND IN HIS 
ARRAY. THE DECODED TEXT" 
PRINT K$;" WILL BE SHOWN ON 


YOUR SCREEN ONLY !" 

PRINT K$;" 3) YOU CHOOSE YOUR 
RECORD-MEDIUM:" 

PRINT K$;" AUDIO-TAPE OR 
DCR-TAPE" 
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PRINT K$;" 4) YOU CAN SAVE YOUR 
ARRAY" 

PRINT K$;" 5) YOU CAN LOAD A 
NEW ARRAY" 

PRINT K$;" 6) YOU CAN STOP THE 
PROGRAM" 


PRINT K$;"":IF PW=l THEN 1450 
PRINT K$;" FIRST GIVE ME THE 
KEY-WORD (42 CHARAKTERS)" 


TEXT-SCRAMBLER 


PRINT K$;" 


CURSOR 9,1:S$="":GOSUB 300:PW=1 
IF LEN(S$)>42 THEN S$=LEFT$(S$, 
42) 

IF LEN(S$)«42 THEN S$=S$+ 
CHR$(95):GOTO 1430 

FOR 1=0 TO LEN(S$)-1:WW(I)- 
ASC(MID$(S$,1,1))-60:NEXT 
CURSOR 9,1:PRINT S$+" ";:CURSOR 
9,2 

PRINT "MAKE YOUR CHOICE:GIVE A 
NUMBER BETWEEN 1-6"; 

GOSUB 400:1F G<49 ОК G>54 THEN 
1470 

ON G-48 GOTO 2000,3000,4000, 
5000 , 6000 , 7000 


GOTO 1470 

REM 24% SCRAMBLE YOUR TEXT 
Hideo 
B$="PLEASE GIVE ME YOU 


TEXTLINES NOW" 

C$="WHEN YOU SAY ''STOP'',I 
WILL STOP" 

A$-"SCRAMBLE TEXT":GOSUB 700: AR= 


0 | 

L$="""";GOSUB 500:PRINT :POKE 
#8050 , #04 

ТЕ L$="" THEN L$=" " 

GOSUB 600:POKE #BD50, #D0 

IF L$="STOP" OR AR=256 THEN 1100 
GOTO 2040 


REM *** DECODE YOUR TEXT 

eee eee eee ee ee ee fe eee eee ae ok oe ЖКК 
B$z"I WILL DECODE EACH DATALINE 
Т CAN" 

C$="FIND,WHEN YOU PRESS YOUR 
SPACEBAR" 

A$="DECODE А TEXT'":GOSUB 700:AR= 
0 

L$=WW$(AR):IF L$="STOP" OR L$= 
"" THEN 1100 

FOR 1=0 TO LEN(L$)-1:T$-MID$(L$, 
І,1) 

PRINT CHR$(ASC(T$)-WW(NR)) ; :NR= 
NR+1:IF NR-42 THEN NR-O 
NEXT:PRINT :GOSUB 400:AR=AR+1: 
GOTO 3040 
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REM *** CHOOSE BETWEEN AUDIO OR 
DCR хее оК 
B$-"IF YOU HAVE TWO RECORDERS, 
YOU CAN" 
C$="CHOOSE ONE OF THEM : 
AUDIO" 
A$-"CHOOSE A TAPE":GOSUB 700 
CURSOR 10,16:PRINT "AUDIO OR 


DCR OR 


--  TEXT-SCRAMBLER 

DCR (A/D) '5 

GOSUB 400:IF G=65 THEN 4080 
IF G=68 THEN ST=1:GOTO 4110 
GOTO 4050 
M1$-"AUDIO":M2$-" SET RECORD, 
START TAPE" 

CALLM £F000:REM CAS 

GOTO 4140 

М1$="РСВ" :M2$="INSERT 
WRITE-ENABLED CASSETTE" 

CALLM %Ғ000:КЕМ DCR 

IF ST=0 THEN 1100 

CURSOR 10,14:PRINT "YOU CHOSE 
FOR ";М1% 

CURSOR 10,12:PRINT "PRESS A KEY 
FOR MENU" 

GOSUB 400:GOTO 1100 


REM *** SAVE YOUR ARRAY 
stellende 
B$="IF YOU WANT,I WILL SAVE 
YOUR TEXT" 

C$="IN ARRAY ON "+М18+"-ТАРЕ !!" 
А$="ЗАУЕ AN ARRAY":GOSUB 700 
CURSOR 10,16:PRINT "DO YOU WANT 
TO SAVE (Y/N) "; 

GOSUB 400:1F G-78 THEN 1100 
CURSOR 10,14:1NPUT "GIVE ME A 
NAME ";МАМЕ$ : PRINT 

МАМЕ$=" "+NAME$:CURSOR 10,12: 
PRINT M2$;",TYPE SPACE" 

GOSUB 400:1F G<>32 THEN 5080 
SAVEA WW$ NAMES 

GOTO 1100 


REM eek LOAD А NEW ARRAY 


telden 
B$="IF YOU WANT,I WILL LOAD 
YOUR TEXT" 

C$-"IN ARRAY FROM "+M1$+"-TAPE 
p" 

A$="LOAD AN ARRAY" :GOSUB 700 
CURSOR 10,16:PRINT "DO YOU WANT 
TO LOAD (Y/N) "; 

GOSUB 400:IF G=78 THEN 1100 
CURSOR 10,14:INPUT "GIVE A NAME 
";МАМЕ$ : PRINT 

IF NAME$-"" THEN 6100 

LOADA WW$ NAMES 

GOTO 1100 

LOADA WW$ 

GOTO 1100 


7000 REM *** STOP THE PROGRAM 
аа ааа ааа аа 

7010 B$-"THE COMPUTER WILL END THE 
PROGRAM" 

Ж 7020 Св "АКО YOUR ARRAY WILL ВЕ 

E WIPED OUT!" 

+ 7030 A$="STOP PROGRAM!":GOSUB 700 





PAGE 06 -- TEXT-SCRAMBLER 





7040 CURSOR 10,16:PRINT "DO YOU WANT 

| ТО STOP (Y/N) "; 

7050 GOSUB 400:IF G=78 THEN 1100 

7060 CURSOR 10,14:PRINT "THE EN 
p" 








———————— 




















KENDOS commando's 


Hierbij vindt U een zeer korte routine om vanuit BASIC alle commando's 
voor MDCR of KENDO via variabelen uit te voeren, 

(i.p.v. de slecht gekozen CALLM НЕООЗ, waarbij telkens de commando's 
op het scherm geprint worden) 

De routine kan gelijk waar in het geheugen geplaatst worden. 


UT : $3000 F5 C5 D5 Е5 4E 23 46 C3 33 FO 
PUSH ALL МР F033 


BASIC : А5= DISK ОР ОСЕ COMMANDO + CHR$(13) 
CALLM H3000,A$ 


VB: 


10 FOR B = ОТО 9: READ A : POKE H3000+B,A:NEXT 


20 PRINT:INPUT "GEEF STARTADRES";ST$ (hexadecimaal) 

30 PRINT:INPUT "GEEF EINDADRES ";ENS 

40 PRINT:INPUT "GEEF FILENAAM":NAAM$ 

SO PRINT:D$="DSAVE"+CHR$(34)+NAAM$+", "+57%+", "HENS 
+CHR$(34)+CHR$(13) 

60 CALLM H3000,D$ : GOTO 20 

70 DATA 245,197,213,229,78,35,70,195,51,240 


VB : MDCR 


10 FOR В = ОТО 9: POKE H3000+B,A:NEXT 

20 FOR C=0 TO 9:D$-"SKIP"- CHR$(48-C)-CHR$(13) 

30 PRINT "DCR SPOELT NU "; С ; "PROGRAMMA'S VERDER" 
40 CALLM H3000,D$ 

50 NEXT 

60 DATA 245,197,213,229,78,35,70,195,51,240 
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POWER OM INTTIALISA TION 
(from DAInamic 5 p123) 


This summary covers the initialisation of the DAI pc on switching on. All addresses are in 
hex-notation, The video RAM addresses are based on a 48K machine, 


- Set the stack pointer to F900, 

- Load ЕПО6 with 30:1ROM bank 0, cassette motors off, 

- Load TICC interrupt mask register (FFFS) with 04; only external interrupts are allowed, 

- Load the TICC command register with ОС and immediately afterwards with ОП 

- TICC reset 

- Select ІМ? interrupt (Züms blanking pulse from TV logic) 

- INTA signal from CPU will be accepted, 

- Load addresses 01С0 and 0101, These will be used as timers in the RST7 and RST4 restart 
pracedures respectively. 

- Load Timer 3 (FFFB) and Timer 4 (FFFC) of the TICC 5501, 

= Load the addresses 0000-003F with the interrupt vector routines and the vector addresses. 
The latter аге at 0062-0071, 

- Check if the Maths Chip is present, In address 0004 will be 00 or 7B, depending on whether 
the AMD*?511 is absent or present, Addresses 0001/00 and 0003/2 will be loaded with C7F2 
and DDEO respectively. 

- Check the RAM capacity, This is done by means af the cantents of addresses 1000, 2000, etc 
being read, inverted and loaded in again, Then those locations are read again to see what they 
contain. As long as ВАМ is available this procedure continues, Should there he no more (8K - 
32K machines), or if the ROM is reached (48K), the sequence stops. Thus the highest RAM 
address for constructing the video-RAM is fixed. 


Setting up the video RAM 


- Each routine that has to use the video RAM makes use of the RSTS routine, That switches to 
ROM bank 2, The actual address will be specified by the data that follows the RST instruction! 
eat xxx RSTS There will be a jump to 
xxxi DATA 03 2Е003. 
To set up the video ВАМ RST5/00 will be used. 
- Load 0081/80 with BFFF and 0083/82 with ВЕЕР, 
- Set screen mode to mode 1 (0090500), 
- Define cursar mode and ASCII value far cursor (0074,0073), 
- Specify the colours for the COLORT registers (007C-007F). 
- Select screen mode 0, | 
- Bet the colours for the COLORG registers (009E-0GA1), 
- Load 00C5/C4 with CAO1 and 00С7/С6 with СА25, 
Set screen made at 10, 
- Load 8250 іп 02А6/5, 
- Load 0084-0098 with addresses of the video RAM. 
- Load the colour registers BFFÜ-BFFF with data, 
- Now the whole video RAM is arranged, for an empty screen in mode 0, The line control bytes 
are made 7А, the colour bytes 40, The character data bytes are 20 (space) and their colour 
bytes 00, 
- In 0079/78 is stored the line control address of the first line (later, the current line) and in 
007А the last usahle addres of this line, 
~ Load the colour registers B250-B35F with data, They are used for the COLORT colours, 
- Select screen mode 0, 
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NOW THE VIDEO RAM IS BUILT-UP 

- Load 0276 with 00, 

- Select screen and RS232 as output (0131), and keyboard and screen as input (0135), 
- Set the TICC communications rate register (FFFS) at 9400 Bauds and 1 stop bit, 


Fil the video RAM with "DAI PERSONAL COMPUTER" 





- For this RST/03 will be used, This routine is always used to put data in the video RAM, 

- Jump to screen line 7, that is 4 carriage returns, 

- On the 7th line fram the top ‘DAI PERSONAL COMPUTER’ is placed in the video ВАМ, It is 
done in mode 0, in the highest resolution, with 14 spaces between ‘PERSONAL’ and 
‘COMPUTER’, 

- Now line 7 is set for medium resolution (line control byte 5F), This gives the well-known 
larger letters, although 'COMPUTER' is now beyond the screen, Therefore between 
'PERSONAL' and 'COMPUTER' a new line control byte is created (GF + 40) This results 15 
‘COMPUTER’ being placed neatly below the preceding words, The rest of the video RAM will 
now be reorganised. 

- The videa section is now ready, 


Now various pointers and other memory locations must be set before there can be an entry 
from the keyboard. 
- Initialise the sound generator (2006), The volume will be set to 0 (FD04/05), 
~ FF will be loaded into locations 01C2, 0100, 010Е and ОЈЕС, 
- The contents of ROM addresses D7A4-D7CA are transferred to RAM locations 02C5-02EB. 
This piece of program is used For cassette control, When a floppy disk is to be used this part 
will have to be changed (see the handbaok), 
- The DCE bus (GIC) is initialised via FEO1 and РЕОЗ; RST1/0C is used, There is a check to 
see if the DCE bus is active} at power-on reset this is assumed to be unnecessary, 
- The pointers for the BASIC program are loaded! 

0298/8 $ Start address of the HEAP 

0290/8 : Size of HEAP 

929F/A0 1 Start address of text buffer 

1241/2 : Start address of symbol table 

0243/4 : Beginning of video ВАМ, 
- Cassette port 1 is activated, 
The GETC routine is prepared! 
- ROM pointer 02A7/8 is loaded with the start address of the table containing the character 
ASCII codes, 
- GETC is enabled by 00 in 0289, | 
- OZBE/F апа 02C0/1 are loaded with 02ВА, This is the address where the ASCII code of the 
first character will be stored. | 
- 02C4 is loaded with FF (BREAK), 
- Locations 0275-028F are loaded with 00, 





Now wait until a key is pressed 


When this happens the GETC routine is performed, RST1/15 is used for it, 

т AS a result of the GETC routine the ASCII code for the key pressed is in the accumulator 
and in О2ВА, OZB? is again loaded with FF, 02BE and 02С0 are increased by 1 and 02С4 = 00. 

- The colours of the COLORT registers are changed and the registers themselves altered via 
RST3/04, 

- The screen is cleared and the cursor moved to BFE7 (top left), 

- " BASIC V1.0" is written on the first line by means of RST5/03, Then follows а 'carraige 
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return’, 


Now the DAI PC can be made ready for BASIC, 


- 00 is loaded into the following RAM locations! 0100, 0101, 0104, 0105, 0113, 0114, 0117, 
0118, 0122, The stack-pointer is again set to F900} this value is also loaded in 0128/27. 

- The TICC interrupt mask register (FFFS) is updated, first for interrupts from TIMER ^ and 
external interrupts, then for ІМ? interrupts (TV page blankinn signal}. 

- Through RST5/0C various CPU registers are adapted. 

- Now the prompt (+) ie placed at the beginning af the second line via RST5/03 and followed by 
the cursar. 

- Then the program enters an endless loop in a section of the GETC routine. This loop can 
only be broken by interrupts. 


INTERRUPTS 


At this stage there are 2 possible interrupts (apart from the external ones which will he 
considered further, outside this article) 
- Whenever timer 4 runs down RSTE is called. 

- Via the TV page blanking signal (every 20т=) RST7 is used. 

- Бату: ~ 0100 is decremented. As long as the result is not = 0 there is a jump back to the 
main program.lf it is zero then RST5/12 follows. This flashes the cursor each time RST7 is 
executed, writing alternately SF or 20 (bar or space), 

- RST&! - Timer 4 is reloaded. Whenever 0100 after being decremented is not = 1 there is а 
jump back to the main program} if it is, the GETC routine is called and executed, 


Now inputs can be made, 
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= снығ-Ф4і>2>») — IN _ HARDWARE 
(DAInamic 7 p209) 





1 À design shortcoming in the DAI PC means that one must type in ?CHR$(2) to clear the 
га screen, This may be overcome in hardware with the following CMOS circuitry, во that the 

1 screen can be cleared by a single key operation, using an additional key, Extensions of the 
circuitry permit other functions to be called, 


Fig 1 shows the wiring of the DAI keyboard in accordance with the matrix shown on page 34 of 
the Handbook, The horizantal lines from the adjacent 5501 are made active through software so 
that the software can read the vertical lines via the 5501. Imagine that the S-key is pressed! 
at the moment when pin 27 of 1093 (5501) goes low, pin 3 of 1220 and cansequently pin 35 af 
IC?3 go high. (See fig 4 for the whereabouts of ICs 87, 90 and 93 on the printed circuit board), 
In accordance with the code present at any specific instant on pins 33 to 39 inclusive of the 
3301, the software decides which key is pressed, Other keys may he connected in parallel with 
the keyboard keys without affecting the operation of the keyboard. 





In fig 2 the function RUN is realised with а single key, At reset the flip-flop (4013) is reset, 

pin 2 is high so the Johnson counter (4017) is also held reset, On the clock input (pin 14) af the 

4017 are the pulses from ICS? pin 11, which are regularly generated by the software scanning 

E the keyboard, The outputs of the analogue switches (4014) are connected in parallel with the 

|j four keyboard switches R, U, N and RETURN. Fressing the RUN key sets the flip-flop which 

А іп turn makes pin 15 of the 4017 low, allowing the 4017 to start counting. The next pulse on 

s pin 14 makes pin 2 high and the first analogue switch closes, This is seen by the software via 

À the 5501 and an R appears on the screen, The next pulse on pin 14 sets pin 2 low and pin 4 

high, closing the second analogue switch and making a U appear on the screen, and so on. 
When pin 1 goes high the 4013 resets and blocks the 4017, 


Fig 3 shows an extension of this circuit which caters for the functions ?CHR$(12), RUN, LIST 
and EDIT. An example will illustrate the numbering used in the schematic! pin 3 of IC210 
(AND! goes to pin 3 of IC215 (OR) and to pin 5 of IC204 (ANALOGUE SWITCH), 


| à DISADVANTAGES ! 

E 1) Sometimes when the DAI is switched on the counter starts running and a SYNTAX ERROR 
1 is given. | 

| 2) А relatively large amount of hardware is needed (17 ICs for the Fig 3 circuit}, It would be 
|j interesting to see if a PROM could be used when even mare functions are needed. 

E 3) The keyboard must be ig Upper Case made, 





| Я The circuit is connected with ribbon-cable, One can carefully solder the wires on the underside 
Ç of the printed-circuit board to the pins of 1089 and 90 and to the pins of the blue 
resistor-block on the right, next to the IC. 


Mie on 
ұрайын на аша 
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PROGRAMMING TECHNIGUES 
{from DAInamic 18, page 285) 


In mid-August I received a tape from Koert van Espen which I found very interesting. It was 
conveniently provided with test arrays to facilitate input adjustments and the pragram itself 
was recorded mare than once. The accompanying letter explained that he had invented 
STARBUILDER himself, It appeared to be a simple but pleasing action game and indeed 
original. Possible problems had been foreseen and solutions found. I asked Koert if I could 
use his program as a basis for an article and he kindly agreed, knowing full well that it would 
be criticised. Here is his original programi- 


10 REM Program by Koert Van Espen Date: 1983 08 

20 GOSUB 10000 

30 PRINT "Do you want to play - without red bricks (type 7192" 

40 PRINT " - with red bricks (type 7279" 

50 G'=GETC! IF 62490 AND 65500 GOTO 50 = 


100 FOR B-1 TO 3 
11ó PRINT CHR$(1 2): MODE ZA 


120 CURSOR 0,2; PRINT "SCORE! “5: CURSOR 30,2: FOR W-1 TO 3-B: IF В<23 THEN 
PRINT CHR$GSS)" "$ 

130 NEXT 

140 DRAW 0,0 XMAX,0 31 DRAW 0,YMAX-14 XMAX,YMAX 3: DRAW 0,0 OG, YMAX-14 З! 


DRAW XMAX,0 XMAX,YMAX-14 3 

150 X-XMAX/2! Y=YMAX/2 

160 DOT X,Y 5 

170 Е=30: Н< 15: FOR K=1 TO G'-48 

180 FOR Озі TO Е! XX=INT(RND(2,04X-2,0 1,0 YY=INT(RND(Z.0#Y-14.0)+1,0% IF SCRN 
(XX,YY) z15 OR SCRN (XX,YY) =3 THEN О=0-1: NEXT 

190 DOT XX,YY Ri NEXT! E215! R-3! NEXT 

200 ENVELOPE 0 15,200}0,2008 IF Т=0 GOTO 1000 

300 H-SCRN(X,YY IF H=3 GOTO 500 

310 ТЕ H=15 THEN 5=5+100: T-T*1:80UND 00 15 0 4545 

320 IF T=30 GOTO 900: DOT X,Y 3: CURSOR 8,2: PRINT Si" "i SOUND 0 0 15 1 36363 
330 GG=GETC! ТЕ GG=0 THEN 1100: G=GG! ON GG-15 СОТО 2000,3000,4000,5000 
500 SOUND 0 1 15 0 64516) ENVELOPE 1 15,20}10,20}5,10}} WAIT TIME 100: SOUND OFF 
510 б=0: GG=0t T=0! NEXT 

520 PRINT "Again(Y /N)" 

530 А=СЕТС! IF AC>89 AND А<>78 THEN 530: IF A-78 THEN END 

800 Gz0i GG=0! Т=0} 820: GOTO 100 

900 G=03 GG=0! Т-0! 5=5+5000: GOTO 110 

1000 | GzGETC! IF G=0 GOTO 1000 

1100 — 8-8-1t ON G-15 GOTO 2000,3000,4000,5000 

2000 Ү=Ү+1: GOTO 300 

3000  Y-Y-1: GOTO 300 

4000 Х=Х-1 GOTO 300 

5000 Х=Х+1: GOTO 300 

10000 PRINT CHR$ 2)! COLORT 7 0 0 0: COLORG 0 3 5 15: MODE 0 

10010 CURSOR 19,18! PRINT "STARBUILDER" 

10020 CURSOR 19,17! PRINT" ----------- 

10030 CURSOR 19,15! PRINT " KOERT VAN ESPEN " 

10040 PRINT! PRINT! PRINT! PRINT "DO YOU WANT INSRUCTIONS? (Y /N)” 

10050 G'=GETC! IF G'X289,0 AND G'<>78.0, THEN 10050: IF G!=78,0 THEN RETURN 
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10060 PRINT CHR$(12) PRINT "Try to catch the white stars as fast as рова Ше", PRINT 
"but avoid anything coloured red," 
10070 PRINT "Use the cursor keys to move your ship." {RETURN 


Аз you can see, it is a fairly short program and if you type it in you will Find that it almost 
always works well, The only fault in the working rarely appears (have you found it 7), You will 
have noted from the listing that line numbering is in multiples of 10, an excellent custom, The 
program appears to have been carefully thought out and thoroughly rechecked before being 
sent inj something sadly lacking with many submissions. The professional programmer will put 
a service advice or something similar after the last line, even though the program itself gives 
instructions, As I have said before, I object to asking the user if he needs instructions when 
they are as short as here, The introduction/explanation is correctly placed at the end of the 
listing, with logical line nimbers, but this sub-routine has two RETURNs and that is not 
structurally good, It could be done just as well with GOTOs, We only go from line 20 to line 
10000 and always return to line 100, If later we want to include a CLEAR would that be trouble 
free ? For that matter would the program be any better with CLEAR ? А CLEAR 4 is no 0009 
but CLEAR 254 is all right. I consider lines 30, 40 and 50 belong to the explanations} there the 
choice would only be made once in the program. Regarding line 50, do you realise that! 

90 G=GETC: IF G=49 OR G=50 GOTO 100: GOTO 50 15 the same? But watch out, Koert’s 
solution leaves a free line for you between 50 and 100 but the second method does not do so 
directly although it could be made to. In both examples extra time is required for the AND/OR} 
probably not so important here, but the keyboard will not react so well. Here is my proposal! 

90  GzGETC!IF 6<49 GOTO 50: IF G250 GOTO 50 The same recipe can be applied to line 
930. With an IF AND or an IF OR combination the DAI looks at both possibilities and then 
combines before taking any action, so it would be better to stop as soon as one is found to be 
wrong, This happens with an OR if the first condition is satisfied and with an AND if the first 
condition is not satisfied. Structurally AND and OR are preferred because others can more 
easily understand what is being tested, but for the sake of speed (with the DAI), simple IFs 
are faster, The score is updated at line 320. A couple of spaces are printed after 5 to ensure 
that any figures remaining from the previous line are wiped out, After the " " I would like to 
See a semicolon to restrict the winking cursor, or better still, make it invisible with POKE 
175,32. In line 180 X+X would be quicker than 2,0#X, It is correct to use floating point 
numbers 1.0 and 2,0 because RND warks with them and it is faster than with integers, The INT 
is superfluous because there is an assignment to an integer variable. 


Now for the error} Koert rightly foresaw that there was a chance of a ‘star’ being placed 
where one already existed, resulting in 29 (or less), and making it impossible to catch 30, Не 
solved this by testing if the spot chosen was empty; if it was not he lowered the loop counter 
by 1, This excellent solution looks logical but it does not work with the DAL At the start af 
each FOR-NEXT loop DAI calculates the number of times the loop has to be run through} 
intervening changes to the loop variable О therefore have по effect on the number of loops. I 
do not like to see а FOR associated with two NEXTs. The test itself could also have been 
better, not only with the previously mentioned OR construction, but also to avoid wasting time 
by twice calculating the SCRN(XX,YY), Better would be! HELP=SCRNIXX,YY)! IF HELP-15 OR 
HELP-3 THEN ,,,, or even better! IF SCRN(XX,YY) C0 THEN ,... s but this is like 
carrying coals to Newcastle! the fault is nicer and it is done Faster, Reducing the loop variable 
is meaningless, so how до we solve it? Several methods are available and I will give twot- 

1) Keep however many stars are placed, If for example only 28 are there, then we need only 
catch 28 to obtain a new field. Instead of testing if SCRN(XX,YY)=0 we can update the 
counter by COUNTER = COUNTER +1 -SGN(SCRNUXX,Y Y) 

2) If the chosen point is occupied we choose another but to gain time, only choose another YY 
value, 
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200 FOR O=1 TO 30: XX=RND(X) 
210 YY=RND(Y) IF SCRN(XX,YY)<20 GOTO 210 
220 NEXT 


Koert's method of setting as many white points as red with the same loop convinces me of his 
pragramming capabilities. I cannot improve on the originality, only make the readability of the 
program better by using two separate FOR-NEXTs to set the spots} a small increase in the 
work but easier for others to follow, Another feature is that on the first choice run, the loop 
always tests for colour 3 even though that colour is not yet in use, But that is enough on line 
180! at this rate discussion of the program could fill 10 DAInamics. In line 800 variables 
G,GG and T are set to 0 and then there is a jump to the beginning of the program. It would 
therefore be better for this initialisation to be at the beginning. The zeroing at lines 510 and 
900 can then be omitted, After that line 900 only increases score 5 by 5000 and goes to 110, Ав 
we can only get to 900 from 320 it would be better for 320 to do the increasing and to remove 
900, With a small change line 800 can also Бе omitted. The ENVELOPEs never change and thus 
would also be best with the initialisation. Put the block containing the construction of the 
area for supervision of the game at the end and let the block begin with a number of GETCs 
to overcome keybounce. In the original program you were already dead before you had done 
anything, ar rather, you had done something but it was for the previous go. The GOTO in line 
200 does not please me, The direction fixing being essential should, I consider, he early in the 
program. It must in fact be the first thing after the initialisation, 


The method used by Koert to get blocks on the screen for the score is good and it is original 
(see lines 120 and 130), but I find it artificial. If it were to be done as follows everyone could 
plainly see what is involvedi- 

40 IF B-1 THEN PRINT CHR#(Z55)+" "+CHR&(Z55) 

50 IF В=2 THEN PRINT СНКФ(255)+" = 

60 IF B=3 THEN PRINT " 4 
Line 60 can itself be omitted after a CHR$(12) but I am going to look for another solution, 

40 PRINT MIDS(CHR$(255)+" "+CHR$(255)+" — ",B*B,3) and then with B from 0 to 2 instead 
of from 1 to 3. However I want to get rid of that СНЕ$(255) so I have done the following! 
Given the line in question the number 1 and changed the string used for the MID$ to 
"AAAAAAA" Then switched to Utility and looked at #29F, #2А0 to find where the text buffer 
begins. With no CLEAR this will be #3EC, Then looked at the section from #2EC onwards to 
find the seven As (code 41), Next changed the 415 to FF 20 FF 20 20 20 20 (ASCII FF=filled 
rectangle and 20=space), Then switched back to BASIC and in EDIT changed the line numbers to 
their correct ones, You must try it ! Strange things happen when you LIST &/or EDIT this line. 
Line 330 does not please me either. It is logical to put GETC in another variable sa as to save 
the original direction, but why is there no penalty for a change of direction? Therefore change 
ON GG-15 GOTO ... to GOTO 1100, 


Although the game is fast, it is mainly taking care of the following logic. In line 320 there is a 
test that is nonsensical unless the last point was white. The whole line should therefore be 
back in line 310, If in line 330 the ТЕ GG=0 is changed to IF GG<16 then TAB and RETURN 

will no longer give problems. With further changes in the sequences of the program it was 
possible to combine line 330 with line 1150, Furthermore I have made а couple of cosmetic 
improvements like transposing floating point variables to integer (lines 50 and 10050), Finally 
I have renumbered the program and changed its name to STAR-HUNTER so as to include it in 
Games Collection Number 12 which is a "hunting" series and which is now available, 


Thank you again Koert, Without you this article would not have been written, 
Frank Н Druijff, 
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REAL CIRCLES 
(from DAInamic 18, page 319) 


Remarks on the article "INCREMENTAL CIRCLE GENERATION" by F.VAN AMERONGEN in 
DAInamic 14, 


This small program is really quite clever. The fast drawing speed is achieved by avoiding the 
conventional sines and cosines. The algorithm used does not originate from the equation for a 
circle; it is really for ELLIPSES with almost similar axis lying obliquely with an angle of 45 
degrees to the X axis, It can easily be seen if КІ in line 30 is replaced by a higher value (eg - 
30), (IF а "number out of range" is given the original value of В should be reduced), The only 
points on these ellipses which are proper to a circle are (0,R), (R,0), (0,-R) and (-R,0), 





3 To achieve a true circle one uses the equations 
E x = R Gos Ө y = R Sin 0 


š which after differentiation give 
E dx = - уда dy = xdƏ 
E This results in 
| fy oH yy fy + x— 8 


where 50 is asmall angular difference and = means approximately equal to, 
The starting point (xy 1y,) satisfies the equation 
x j +y ^ =R: 
| however one sees that the point (x, + у) does not lie on the circle 
1 x* +y, SR: +2 63 
Ж One sees that each point determined has co-ordinates that are #00 great by a factor 


УП + > 6° 


sa that the iterative process will produce an accumulated factor of 


ма + Өз) i 
where n represents the number af sides of the approximate palygon 
n = 2R 
| 2 40 
Ex and a spiral will be obtained instead of a circle. Finally, to obtain a circle each new 
co-ardinate must be divided by a factor 


ми + 402) 
А program herewith clearly demonstrates the difference between Е, van Amerangen's "pseudo 
circles" and true mathematical circles, 











G. Doumont, 


CIRCLES which are mot real circles. 
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(DAInamic 18, page 220) 


5 GOTO 2000 

10 PRINT CHR$02)! MODE О 

18 CLEAR 2000: DIM U(190,0,V(190,0) 

20 COLORG 051015: R=90.0 

35 MODE 6: ХС-ХМАХ/2.0: YC=YMAX/2,0 

40 DRAW XC,0 XC,YMAX 5: DRAW 0,70 XMAX,YC 5 

50 Х1<К! Ү1-0.0: K1=3,0 

55 FOR К1=3,0 TO 31,0 STEP 7,0 

60 K=Ki/X1i А-бОН(1.О0ҰК%К) B=1,0/Ai C=5,0 

70 FOR 1=0.0 TO (Z.0*PD/Ki X2z(OCI Ке Y1 В: Ү2-(Ү1-К%ХІЗБН 
50 GOSUB 1000! NEXT! WAIT TIME 50 

110 FOR 1=00 TO (Z,0#PI/Ki Х2=Х1+К+\У IG YZ-Y1-K*X21 C210,01 U(I)2XZ1 VII Y2 
120 GOSURB 1000: NEXT: WAIT TIME 100 

122 IF Ki=31 GOTO 130 

124 Cz0,01 DRAW R*XC,YC ПО ОУХСУООТС C 

128 FOR Jz1,0 TO (Z,0#PD/Ki DRAW U(J XC,VQYC UU -1,08XC,V(T-1,06&YC C 
128 NEXT J 

130 NEXT Кі: WAIT TIME 250! GOTO 10 

1000 PzX1t О=Ү1: MzX2! N=Y2! DRAW P+XC,Q+YC МУХС N+YC C 
1100  X1zX21! Үі=Ү2: RETURN 

2000 PRINT " The circle in green is the true mathematical circle." 
2010 PRINT "Тһе orange one is the ‘Van Amerongen version," 
2020 PRINT " Far each value of K1 between 3 and 31 in steps of" 
2030 PRINT " 7 both circles are presented on the screen, after" 
2040 PRINT " which the orange circle is deleted, By this means" 
2050 PRINT " the ‘ovalisation’ of the orange polygon should be" 
2050 PRINT " very clear to see." 

2070 WAIT TIME 750: GOTO 10 


HIGH SPEED DATA LOADER HGSIOI.) 
(from DAInamic 18, page 330) 


In order to overcome the annoyance of long loading times for large programs on tape we came 
up with the idea of a High Speed Data Loader. It can read-in at a rate rather more than 10 
kilobytes per second. The hardware and software is so designed to avoid problems where DCRs 
are in use; but as we do not own disc drives we cannot say how the HSDL will work with them. 
The HSDL is able to read-in BASIC, MLP and combined programs in accordance with whatever 
is in its EPROMs, We started with a card for 4 EPROMs of types 2716, 2732 or 2764 which give 
a maximum program size of 8, 16 ог 32 kilobytes respectively, This EPROM card comes with a 
connector in the HSDL which in turn is connected via a ribbon cable to the DAI's DCE 
connector, 


When all is connected the rest is simple! switch on the DAI and in Basic, type in, RDLI44, 
Return, When the cursor jumps to the next line the program is in. If the program is a Basic one, 
or ап MLP and Basic combination, a RUN command is all that is needed now to set it going. It 
is a bit more difficult with MLP: go first to UTility, type Z3 and then Gxxxx, the start 
address of the program, and then it will run, Since all programs will not be 8K or 16K we have 
made it possible to put additional programs on one card. Each EPROM is addressed by the 
appropriate command, RDL1 for the first, RDL4 for the 4th. When a program takes up more 
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than one EPROM, calling the overflow EPROM will produce the message "NOT AVAILABLE". 
The space unused by a program in an EPROM is unfortunately wasted as it is only possible to 
address whole EPROMs, 


The high speed data loader consists of the following partsi- 

1) EPROM card on the X bus on which is an EPROM containing the орета па software, 
2) The data loader containing the hardware, with а socket for the EPROM сага, 

3) Тһе EPROM card with the required program(s). 


Two prototypes have been constructed and we are now drafting the definitive printed circuit, 
If there is sufficient interest we would like to start a small production run and discuss with 
Dainamic the possibility of putting programs from their library into PROM ar EPROM, possibly 
оп a circuit board with a connector, 


Once one has the basic unit the only thing then required is the EPROM board containing the 
program, The important factor is the cost, We have made a provisional estimate and arrived at 
a cost of about 275 Guilders for a basic unit, consisting oft- 

EPROM with operating software! 

High speed data loader} 

EPROM card with a demo program in an EPROM, 
We must still find prices for the extras like xbus printed circuit, ribbon cable with connectors, 
EPROM cards etc. 











After a talk with Dainamic we have a couple af comments and For уош а few questions! 
1) If you use your DAI mainly for a specific purpose like SPL, DNA, Word Processing, 
VIDITEL (Dutch Prestel service), or anything similar where only 1 or 2 programs are needed, 
then HSDL is certainly what you need, with your program(s) in ЕРКОМ, 
2) DAInamic usually supplies on one cassette, several programs for a comparatively low 
price. This would not be possible with EPROMs, so the relative cost would be тоге, 
Now for our questions! 
a) Which programs would you wish to see іп EPROM ? 
b) Would you prefer EPROMs to be loose or fully mounted ? 
3 3) How much would you be prepared to pay 7 Beyond the fixed cost of the EFROMs, 
те construction etc, there is the cost of the programs themselves (fixed cost of hardware about 
1 20 Guilders for 16 kilobytes), Please give a realistic indication of price. Consider haw much 
games computer programs cost ! 


We would like to know if you are interested and what your ideas, wishes and queries are, Drop 
us a post card and we can then go into the subject further in a future issue of DAInamic, 


H.Kop, H.Rison, 

Burg. Smeetsstraat 37, Luxemburgstr, 17, 
6151 GM MUNSTERGELEEN 6164 B5 GELEEN, 
Netherlands. Netherlands, 
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Jeroen demo 9 === 








-- JEROEN DEMO 9 


PRINT CHR$(12):MODE SA: MODE SA 

CDLORG 9 13 9 @:COLORT 9 13 9 6:GOSUB 2019 

Аза" Hartelijk welkom bij jeroentel “:GOSUB 1119 

as-" ";GOSUB 1129 

Ag=" Met deze thuiscomputer is het mogelijk ":GOSUB 1130 

A$=" toegang te krijgen tot VIDITEL ":GOSUB 1149 

a$-" de gegevensbank van de PTT via de tele- ":GOSUB 1155 

А$=" faon.Het is dan ook mogelijk zelf infor-  ":GDSUB 1140 

А%=" matie aan te bieden ":GOSUB 1170 

\=204: X=15: B=@ 

READ А: А=А*4: Х1=Х+А: IF A-2000 THEN Y=Y-4: X=15:B=0:G0TO 200 

IF Ас-4000 THEN 50508 1180: НАІТ TIME 300:LOAD "JEROEN DEMO 19" 

FILL X*1,Y X1,Y-S В:1Е В=д THEN B=3:X=X1:GOTO 200 

Bz0:X-X1:G0TO 200 

FOKE #9943, #АА: I=89941:M=898E9: GOSUB 5000: RETURN 

POKE #9829, #58: I-878E7: М=#9890: БОСОВ 3000: RETURN 

POKE «988F,460:1-48788D: М=#9855: GOSUB 3000: RETURN 

POKE #9935, #58: 1=#7833: M=#97DB: GOSUB 5000: RETURN 

POKE #97349, #6A: 1=#92347: M=#92EF:GOSUB 3000: RETURN 

POKE #BESD, #58: I-MBESB: МеВЕФЗ: GOSUB 3000: RETURN 

POKE #8205, #58: I-HEEO1: М-#6049: GOSUB 3000: RETURN 

FOKE #8049, #6А: 1-#8047: M-48DAF: GOSUB 2000: RETURN 

POKE #8042 ,#5А:РОКЕ #8D4B,3:POKE #8D4D,32:FOR 1=#8049 TO #8СЕВ STEP -2: 
POKE 1,1:МЕХТ 

POKE #8CF5,2:POKE #8CF7,32:POKE #8029, 2: RETURN 

PRINT CHR$(12):POKE 475,32:COLORT 0 13 9 9: СП ОКВ 9 13 9 9: МОПЕ ЗА: МОПЕ 
зА: Y2204: X20 

POKE #BFEF,#GA:FOR I=#BFED ТО #BF96 STEP -2:РОКЕ I,32:NEXT 

POKE #BF95,#68:FDR I=#BF9Z TO #BF3C STEP -2:READ С:РОКЕ I,C:NEXT 

POKE #ВЕЗВ, #6А:РОКЕ #BF39,32:POKE #BF37,3:FOR I=#BF35 ТО #BEE7 STEP -2: 
POKE 1,1:МЕХТ 

РОКЕ #BEES,2:POKE #BEES, 32: RETURN 

B-LEN(A$):FOR P=1 TO Q STEP 1:L$=MIDS(AS,P, 1) 

W=ASC (L$) :РОКЕ I,W:I-I-2:IF IPM THEN NEXT P 

RETURN 

DATA 22,32,74,101,114,111,101,110,115,101,108, 32, 32, 32, 32, 32, 532, 52,32, 
32,32,32,22,22,32, 32, 32, 50, 49, 79,52,59, 54,52,97 

DATA 32,32,32, 32,52,53, 99,32, 32 


как. pe r 


REM DATA 32,52,74,191,114,111,191,110,116, 101, 108, 32, 32, 22, 22, 22, 32, 32, 
32, 32, 32, 32, 32, 32,32, 32, 22, 2 49,79,52,50,54,53,97 

REM DATA 32, 52, 32, 52, 52, 53,99, 32, 32 

REM DATA 32,32,74,101, 114, 111, 101, 110, 115, 101, 108, 22, 32, 32, 32, 32, 52, 32, 
32, 32,32, 22, 32, 32, 32, 32, 32,50, 49,79, 52, 50, 54, 54,97 

REM DATA 52) 52, 32, 32, 52, 53,99, 32, 32 
DATA 9,10,9,3,8, 5,500, 1, 10,8, 5,9, 4, 
DATA 2,2,6,2,6,2,1,2,9,2, 500,2, 2,4, 
2,500 

DATA 2,2,5,2,5,2,3,2,8,2,500,2,2,6,2,5,2, 35, 2,8, 2, 500,2, 2, 5,2, 4,9,7,2, 
500 

DATA 2,2,6,2,4,9,7,2,500,2,2,6,2,4,2,5, 2,7, 2,500,2,2,6,2,3,3,5,3,6, 2, 
500 

DATA 2,2,5,3,3,2,7,2,6, 2,500, 1, 10,3, 2, 9,2, 4,4, 500,0, 10, 2, 6,5, 6, 1,6, 500, 
1000 


2 


500,2, 9,2, 500 
2,5,2 ,2,6,2,5,3,1,3,8, 


е 
‚6,2, 


2,5,3,6,2,1 
1,2,9, 2,500, 


ке ке ға уі ка ка кө кл P< F ра ры ра рь р 
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